vb 如何分别取得一行文本中的数字按保存为变量？

查找和提取数

Private Sub Command1_Click()
Dim S As String, I As Long, Str1 As String
Dim NumStart As Long, Zu() As Long, Ge As Long

S = "dsf/,/76\f你33好13dfjl"

'查找和提取数，存入数组 Zu()
For I = 1 To Len(S)
Str1 = Mid(S, I, 1)

If IsNumeric(Str1) Then
If NumStart = 0 Then NumStart = I
Else
If NumStart > 0 Then
Ge = Ge + 1
ReDim Preserve Zu(1 To Ge)
Zu(Ge) = Mid(S, NumStart, I - NumStart)
NumStart = 0
End If
End If
Next

'将找到的数显示到窗体，共 Ge 个
For I = 1 To Ge
Me.Print Zu(I)
Next

' ''如果确实要赋值到变量 a,b,c
' Dim a, b, c
' a = Zu(1)
' b = Zu(2)
' c = Zu(3)
' ''显示到窗体
' Me.Print a
' Me.Print b
' Me.Print c
End Sub

'======================================
补充：
'改写为 GetNum 函数，供需要时调用，这样写：