อยากถาเรื่องการตัด String ค่ะ VB2008 ตัดให้เหลือแต่ตัวเลขไม่เอาสัญลักษณ์ค่ะ

Replace("001 | 12.00 - 16.00","|",""" """)

Dim _string, _array() As String
        Dim _StringCount As Integer

        _string = "001 | 12.00 - 16.00"
        _StringCount = _string.Length
        For i = 1 To Val(_string.Length)
            If IsNumeric(Mid(_string, i, 1)) = False Then
                _string = _string.Replace(Mid(_string, i, 1), " ")
            End If
        Next
        _array = _string.Split(" ")
        For i = 0 To _array.Count - 1
            If _array(i) <> "" Then TextBox1.Text &= Trim(_array(i)) & " "
        Next

  _array = Trim(TextBox1.Text).Split(" ")