Overflow. And it is in this block of code: Function GetDate(arg As String) As String Dim pos As Integer pos = 1 ' Loop Do Until Val(Mid$(arg, pos, ...
確定! 回上一頁