Verify if integer

This if ... then statment will verify if a string inputed from a custom function is an integer

Snippet: 
If Val(noOfTransactions) <> Int(Val(noOfTransactions)) Then
	MsgBox "Please enter an integer", MB_ICONEXCLAMATION, "Error"
	GoTo menu_dialog:
End If