RosettaCodeData/Task/Determine-if-a-string-is-numeric/Gambas/determine-if-a-string-is-numeric.gambas

Public Sub Form_Open()
Dim sAnswer, sString As String

sString = Trim(InputBox("Enter as string", "String or Numeric"))

If IsNumber(sString) Then sAnswer = "'" & sString & "' is numeric" Else sAnswer = "'" & sString & "' is a string"
Print sAnswer

End