프로그래밍 공부노트

 Function ExtractNumber(ByVal InputString As String)

        Dim i As Integer = 0

        Dim Num As String = ""

        For i = Len(InputString) To 1 Step -1

            If IsNumeric(Mid(InputString, i, 1)) Then

                Num = Mid(InputString, i, 1) & Num

            End If

        Next i

        ExtractNumber = Num

    End Function