Application VisualBasic Script

Private Sub CommandButton1_Click()
    MsgBox "Hello " & Application.UserName
End Sub