Public Function HMultiply(ByVal Num1 As String, _
      ByVal Num2 As String) As String
 
  Dim SgnRes      As String
  Dim Cipher1     As Long
  Dim Cipher2     As Long
  Dim n           As Long
  Dim m           As Long
 
  HMultiply = "0"
 
  SgnRes = ""
  If HSgn(Num1) * HSgn(Num2) = -1 Then SgnRes = "-"
 
  Num1 = HAbs(Num1)
  Num2 = HAbs(Num2)
 
  For n = Len(Num1) To 1 Step -1
    Cipher1 = CLng(Mid(Num1, n, 1))
 
    For m = Len(Num2) To 1 Step -1
      Cipher2 = CLng(Mid(Num2, m, 1))
      HMultiply = HAdd(HMultiply, CStr(Cipher1 * Cipher2) & _
            String(Len(Num1) - n + Len(Num2) - m, "0"))
    Next
  Next
 
  HMultiply = SgnRes & HMultiply
End Function

MfG DreamFlasher

I'm not perfect...yet! (MacGyver)
You know the story: Girl meets boy, girl changes boy's subroutines. (Janeway)
I'll be honest with you. My name's not Kirk. It's Luke Skywalker. (Jack O'Neill)