Osetrenie Vstupu

Sub testik()

    menoUzivatela = InputBox("Napište prosím svoje meno:")
    menoUzivatela = Trim(menoUzivatela)

    If menoUzivatela = "" Then
        Pozdrav = "Vitajte."
        ElseIf IsNumeric(menoUzivatela) Then
        Pozdrav = "Roboti jsou samozrejme tiež vítaní."
    Else
        Pozdrav = "Vitajte, " & menoUzivatela & "."
    End If

    MsgBox Pozdrav

End Sub