Response to: How to sub string in string in vb.net

private sub getstringandnumber()

    Dim lstring As String = "00AA015949"
    Dim lstrChar As String
    Dim lstrNum As String
    Dim lblnChar As Boolean
    Dim i As Integer

    For i = 1 To Len(lstring)

        If IsNumeric(Mid(lstring, i, 1)) Then
            If lblnChar Then
                lstrNum = lstrNum & Mid(lstring, i, 1)
            Else
                lstrChar = lstrChar & Mid(lstring, i, 1)
            End If
        Else
            lstrChar = lstrChar & Mid(lstring, i, 1)
            lblnChar = True
        End If
    Next

    MsgBox(lstrChar & "   " & lstrNum)

End Sub