InstrRev怎么查找不确定的字符【格式确定】

InstrRev如何查找不确定的字符【格式确定】
lastPos = InStrRev(Text1.Text, "[")  
在text1.text里面查找“[”最后一次出现的位置

我现在想查找[2012.01.01]这个格式的字符串（最后出现的位置），就是说日期不一定，但是字符串格式是一样的。

请问该如何做呢？

[解决办法]

VB code

Private Sub Command1_Click()Dim a As String, i As IntegerDim b, ca = "如果最后一个[****]不是这样的数字格式，[2011.11.11]那就找倒数第二个，[2011.11.12]依次类推[2011111112][****][****]"b = Split(a, "[")For i = UBound(b) To 0 Step -1  If InStr(b(i), "]") = 11 Then     c = Split(Mid(b(i), 1, 10), ".")     If UBound(c) = 2 And IsNumeric(c(0)) Then       If IsNumeric(c(1)) And IsNumeric(c(2)) Then          Debug.Print "[" & Mid(b(i), 1, 11)          Exit For       End If     End If  End IfNext     End Sub
[解决办法]
关键是你的文本中会不会出现象 [2012.15.03] 这样的非法日期串……

如果有，你自己写代码排除这些‘不合法的’内容啊。 -_-!