CorelDraw VBA 截取文件名里的金额

Public Function Push(filename As String)
Dim i As Integer, j As Integer
Dim strTemp As String, temp As String, te1 As String, te2 As String
i = InStrRev(filename, “元”, -1)
If i = 0 Then
Push = “0”
Exit Function
End If

te1 = Left(filename, i - 1)
If IsNumeric(VBA.Right(te1, 1)) = False Then
i = InStrRev(te1, "元", -1)
If i = 0 Then
Push = "0"
Exit Function
End If
End If

te1 = Left(te1, i - 1)
For j = 1 To 10
strTemp = VBA.Right(te1, j)
If IsNumeric(strTemp) Then temp = VBA.Trim(strTemp)
Next

Push = temp

End Function