Code: Select all
Dim strSquad As String
Dim intTime As Integer
Dim intRemaining As Integer
Dim strAnswer As String
strSquad = Val(txtSquadname.Text)
intTime = Val(txtTime.Text)
intRemaining = Val(txtRemaining.Text)
strAnswer = strSquad & strSquad
Me.txtScript.Text = strAnswer