Sub example()
Dim a() As String
a = Split(InputBox("Введите строку"))
If a(0) = a(UBound(a)) Then
MsgBox "Совпадают"
Else
MsgBox "Не совпадают"
End If
End Sub
Sub example()
Dim a() As String
a = Split(InputBox("Введите строку"))
If a(0) = a(UBound(a)) Then
MsgBox "Совпадают"
Else
MsgBox "Не совпадают"
End If
End Sub