Option Explicit
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then Text1.Text = "0"
Label3.Caption = transth(Val(Text1.Text), True)
Lab
Option Explicit
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then Text1.Text = "0"
Label3.Caption = transth(Val(Text1.Text), True)
Lab