เกี่ยวกับการนับตัวเลขที่อยู่ในชุดข้อความ และการตัดตัวเลขออกจากชุดข้อความ

Function output(ByVal textbox As String)

        Dim txtlimit As String = String.Empty
        Dim txtoutput As String = String.Empty
        Dim txtinput As String = textbox
        Dim count As Integer = 0
        Dim txtchar As String = String.Empty
        Dim txtnum As String = String.Empty
        Dim txtall As String = String.Empty
        For i As Integer = 1 To Len(textbox)
            txtall = Mid(textbox, i, 1)
            Select Case txtall
                Case "0" To "9"
                    txtnum = txtnum + txtall
                    count = count + 1
                Case Else
                    txtchar = txtchar + txtall
            End Select
        Next i
        If txtnum.Length = 9 Then
            txtnum = Mid(txtnum, 1, 8)
        End If
        txtoutput = txtchar + txtnum
        Return txtoutput

    End Function

dim inNumber as boolean = false ' เพื่อไว้บอกว่าตอนนี้ เป็นช่วงของตัวเลขแล้วนะ
....
for i = .....
    txtall=mid(...)    
    select txtall
    case 0 to 9
       countnum++
       if inNumber then begin
          if countnum = 8 then begin
             return mid( textbox, 1, i)  ' สิ้นสุดการนับ
          end
       end
    end select
end for
return textbox