[VB 6.0] 무한계산! String 연산을 이용한 뺄셈 함수

덧셈과 같이 한번 만들어봤습니다. 주석은 필수로...
이 함수의 특징 : String 연산으로 무한적으로 연산이 가능하다. String으로 연산이 빠르다.
응용 : 사칙연산
==============================================================
Function minusstr(ByVal data1 As String, ByVal data2 As String) As String
Dim tmp As Integer
Dim i As Integer
i = 0
Do While (Len(data1) - i > 0 Or Len(data2) - i > 0)
If Len(data1) - i <= 0 Then
Stop
p1 = 0
Else: p1 = Val(Mid(data1, Len(data1) - i, 1))
End If
If Len(data2) - i <= 0 Then
p2 = 0
Else: p2 = Val(Mid(data2, Len(data2) - i, 1))
End If
If p1 - p2 < 0 Then
p1 = 10 - Abs(p1 - p2)
p2 = 0
b = True
Else
b = False
End If
If Abs(p1 - p2 - tmp) = 4 Then Stop
minusstr = Abs(p1 - p2 - tmp) & minusstr
i = i + 1
If b = True Then tmp = 1
If b = False Then tmp = 0
Loop
If tmp = 1 Then
minusstr = "-" & minusstr
End If
End Function