division in text box

[M.Nolan]

and yet another way...

Private Sub CommandButton1_Click()
Dim dividend As String
Dim divisor As String
Dim info As String
Dim Split As Integer

' Start with this.
info = TextBox1.Text
' Find the Division.
Split = InStr(1, info, "/", vbTextCompare)

dividend = Left(info, Split - 1)

divisor = Right(info, Split + 1)
Label1.Caption = dividend / divisor

End Sub

[user name]

And another.

'project >> references >> microsoft script control 1.0

Dim msc As New MSScriptControl.ScriptControl

msc.Language = "vbscript"

Debug.Print msc.Eval(Text1.Text)