'문자열과 문자열 사이에 숫자 뽑아내기
Private Sub Form_Load()

    Dim startPos As Integer
    Dim endPos As Integer
    Dim FindWord As String
    FindWord = "가나다라마바사$11113$아자차"
    startPos = InStr(1, FindWord, "$")
    endPos = InStr(startPos + 1, FindWord, "$")
    MsgBox Mid(FindWord, startPos + 1, endPos - startPos - 1)

End Sub

'숫자만 뽑아내기
Dim data1 As String
Dim data2 As String
Dim i As Integer
Dim data1_len As Integer
Dim data1_1ch As String

data1 = "GX-L9-T034"

data1_len = Len(data1)

data2 = ""

For i = 1 To data1_len
    data1_1ch = Mid(data1, i, 1)
   
    If (IsNumeric(data1_1ch) = True) Then
        data2 = data2 + data1_1ch
    End If
Next i

MsgBox data2