CodeItBetter Programming Another VB Programming Blog

'Coding Basics - How to use InputBox function and get values
    Dim sInput As String
    sInput = InputBox("Test Title", "InputBox", "Some text here")
    If StrPtr(sInput) = 0 Then
        MsgBox "Cancel was pressed"
    Else
        If Len(sInput) = 0 Then
            MsgBox "OK pressed but nothing entered."
        Else
            MsgBox "OK pressed: value= " & sInput
        End If
    End If