15位身份证号转18位

'这是根据csdn上找到的java的源码改的
'Enjoy it
    Public Function Old2New(ByVal OldID As String) As String
        Dim W() As Int16 = {7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1}
        Dim A() As String = {"1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2"}
        Dim i As Int32 = 0, s As Int32 = 0
        Dim NewID As String
        NewID = OldID 
        NewID = NewID.Substring(0, 6) + "19" + NewID.Substring(6, OldID.Length() - 6)
        For i = 0 To NewID.Length - 1
            s += Convert.ToInt32(NewID.Substring(i, 1)) * W(i)
        Next 
        s = s Mod 11
        NewID = NewID + A(s)
        Return NewID
    End Function