Private Sub Command1_Click()
    Dim tmpStr As String * 50
    'Select Case ?
        Case 0
            tmpStr = Left(Trim(Text1.Text), 3)
        Case 1
            tmpStr = Right(Trim(Text1.Text), 3)
        Case 2
            'tmpStr = Mid(Trim(Text1.Text), ? )
    End Select
    'Text2.Text = ?
End Sub