Private Sub Command1_Click() MsgBox GetUserName & vbNewLine & GetComputerName End Sub