怎样用VB实现分析并取得其中的几个数值

求教：怎样用VB实现分析并取得其中的几个数值？
字符串内容例：X475Z1.1y26
要求用一个函数计算出的结果X＝475   Y=26   Z=1.1
其中的XYZ不区分大小写

写了一个循环，没想出来怎么判断结束位

Sub test()
    Dim i As Integer, x(2) As String, k As Integer
    Dim w2 As String, w1 As String
    w1 = "X475Z1.1y26"
    For i = 1 To Len(w1)
        w2 = LCase$(Mid$(w1, i, 1))
        Select Case w2
        Case "x": k = 0
        Case "y": k = 1
        Case "z": k = 2
        Case Else
            x(k) = x(k) + w2
        End Select
    Next
    Debug.Print "x=" & x(0) & "; y=" & x(1) & "; z=" & x(2)
End Sub

[解决办法]
Dim strC As String

strC = UCase("y26X475Z1.1")

MsgBox "X=" & Val(Mid(strC, InStr(strC, "X") + 1)) & "; Y=" & Val(Mid(strC, InStr(strC, "Y") + 1)) & "; Z=" & Val(Mid(strC, InStr(strC, "Z") + 1))