Private Sub Form_Load() Dim a As Integer, b As Integer, str As String a = Val(InputBox("")) b = Val(InputBox("")) Select Case a Case 0 To 99 str = a Case Else Exit Sub End Select Select Case b Case 0 To 999 str = str & b Case Else Exit Sub End Select MsgBox str End Su