→→→反転する処理

Private Function Pass(ByRef result As String)
      Dim k,l,j,m,n,o As Integer
      Dim han() As String
      Dim answer As String = ""
      k = Microsoft.VisualBasic.Len(result)
      l = k - 1
      ReDim han(l)
      For j = 0 To k - 1
         If k < 5  Then
           answer = ""
           Exit For
         End If
         han(l) = result.SubString(j , 1)
         If j = 0 Then
            n = StrComp( han(l) , "0" )
            If n = 0 Then
                 han(l) = ""
            End If
            m = StrComp( han(l) , "-" )
            n = StrComp( han(l) , " " )
            If m <> 0 And o <> 0 Then
                  answer = String.Concat( han )
            End If
         Next
         result = answer
         return result
End Function