Дано х. Вычислить sin x, cos x, ln x и записать их в порядке возрастания. Если одно из этих значений не существует, вывести сообщение об этом и написать существующие значения

[Firstaid]

В общем, вот у меня код, но программа не работает:

Private Sub Command1_Click()

x = Val(Text1)

a = Sin(x)
b = Cos(x)
c = Log(x)

If a <= b And b <= c And a <= c Then

Picture1.Print a
Picture1.Print b
Picture1.Print c

End If

If b <= a And a <= c And b <= c Then

Picture1.Print b
Picture1.Print a
Picture1.Print c

End If

If b <= a And a <= c And b <= c Then

Picture1.Print b
Picture1.Print c
Picture1.Print a

End If

If c <= b And b <= a And c <= a Then

Picture1.Print c
Picture1.Print b
Picture1.Print a

End If

If c <= a And a <= b And c <= b Then

Picture1.Print c
Picture1.Print a
Picture1.Print b

End If

If a <= c And c <= b And a <= b Then

Picture1.Print a
Picture1.Print c
Picture1.Print b

End If

End Sub

+ еще форма во вложениях. Не знаю, где я налажал, а особенно не знаю, как организовать тот момент, где нужно определить, существует значение или нет

[Firstaid]

Вот пытался еще другой код написать, все уже перепробовал, одни ошибки кругом, в этот раз пишет Else without If. Что ему не так?