VBScript Sub and Function Demo

 

 

Option Explicit

GreetUser GetUserName

Sub GreetUser(strUserName)
	If IsNumeric(strUserName) Or IsDate(strUserName) Then
		MsgBox "That is not a legal name."
		Exit Sub
	End If
	
	MsgBox "Hello " & strUserName & vbNewLine & vbLongDate &" " & vbLongTime & " " & VbGreen	
End Sub

Function GetUserName
	GetUserName = InputBox("Please input you name.")
End Function