IPv6 and Visual Basic program how to convert? Help..

[Jason]

I've got a program that wil convert an IP address to decimal.

Anyone give me any infor on how I would modify this program that I had
converting regular IPs to decimal, hwo would I make it work for an IPv6
address? Would I add just 8 instances of converting ?

Thanks for any help....

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click

If TextBox1.Text Like "*[!0-9]*" Then

TextBox1.Text = ""

Exit Sub

ElseIf TextBox1.Text = "" Then

Exit Sub

Else

End If

If TextBox2.Text Like "*[!0-9]*" Then

TextBox2.Text = ""

Exit Sub

ElseIf TextBox2.Text = "" Then

Exit Sub

Else

End If

If TextBox3.Text Like "*[!0-9]*" Then

TextBox3.Text = ""

Exit Sub

ElseIf TextBox3.Text = "" Then

Exit Sub

Else

End If

If TextBox4.Text Like "*[!0-9]*" Then

TextBox4.Text = ""

Exit Sub

ElseIf TextBox4.Text = "" Then

Exit Sub

Else

End If

'Below converts 1st octet

Dim ip As Int32

If IsNumeric(TextB ox1.Text) Then

ip = TextBox1.Text

Dim n As Int16

Do

n = ip Mod 2

Label1.Text = n

ip \= 2

Loop Until ip = 0

End If

'Below converts 2nd octet

Dim ip2 As Int32

If IsNumeric(TextB ox2.Text) Then

ip2 = TextBox2.Text

Dim n2 As Int16

Do

n2 = ip2 Mod 2

Label2.Text = n2

ip2 \= 2

Loop Until ip2 = 0

End If

'Below converts 3rd octet

Dim ip3 As Int32

If IsNumeric(TextB ox3.Text) Then

ip3 = TextBox3.Text

Dim n3 As Int16

Do

n3 = ip3 Mod 2

Label3.Text = n3

ip3 \= 2

Loop Until ip3 = 0

End If

'Below converts 4th octet

Dim ip4 As Int32

If IsNumeric(TextB ox4.Text) Then

ip4 = TextBox4.Text

Dim n4 As Int16

Do

n4 = ip4 Mod 2

Label4.Text = n4

ip4 \= 2

Loop Until ip4 = 0

End If

End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click

Label1.Text = ""

Label2.Text = ""

Label3.Text = ""

Label4.Text = ""

End Sub

End Class