Prompt Empty/Cancel

'Reference: <http://www.visualbasicscript.com/fb.ashx?m=95001>
Dim name : name = InputBox("Please enter username:","Enter username")

If TypeName(name) = "Empty" Then
    MsgBox "You Hit Cancel"
Else
    If Len(Trim(name)) = 0 Then
        MsgBox "You Entered Nothing"
    Else
        MsgBox ("Your username is:" & name)
    End If
End If