Migração de projeto do VB para o VB.NET

Olá pessoal fiz uma migração pego wizard para ver como era e uma parte do projeto não foi migrada, será que alguém pode me ajudar.

É um projeto de uma calculadora, o problema deu em uma parte do código do sinal de igual, vejam o código abaixo:

Private Sub Command12_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command12.Click

Dim seg, pri, ter As Object

'UPGRADE_WARNING: Couldn't resolve default property of object pri. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

pri = Val(Text1.Text)

'UPGRADE_WARNING: Couldn't resolve default property of object seg. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

seg = Val(Text2.Text)

'UPGRADE_WARNING: Couldn't resolve default property of object ter. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

ter = Val(Text3.Text)

If Option1.Checked = True Then

Text3.Visible = True

'UPGRADE_WARNING: Couldn't resolve default property of object seg. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

'UPGRADE_WARNING: Couldn't resolve default property of object pri. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Text3.Text = pri + seg

'UPGRADE_WARNING: Couldn't resolve default property of object seg. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

'UPGRADE_WARNING: Couldn't resolve default property of object pri. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Text1.Text = pri + seg

Text2.Visible = False

Text2.Text = ""

End If

If Option2.Checked = True Then

Text3.Visible = True

'UPGRADE_WARNING: Couldn't resolve default property of object seg. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

'UPGRADE_WARNING: Couldn't resolve default property of object pri. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Text3.Text = pri - seg

'UPGRADE_WARNING: Couldn't resolve default property of object seg. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

'UPGRADE_WARNING: Couldn't resolve default property of object pri. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Text1.Text = pri - seg

Text2.Visible = False

Text2.Text = ""

End If

If Option3.Checked = True Then

Text3.Visible = True

'UPGRADE_WARNING: Couldn't resolve default property of object seg. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

'UPGRADE_WARNING: Couldn't resolve default property of object pri. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Text3.Text = CStr(pri * seg)

'UPGRADE_WARNING: Couldn't resolve default property of object seg. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

'UPGRADE_WARNING: Couldn't resolve default property of object pri. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Text1.Text = CStr(pri * seg)

Text2.Visible = False

Text2.Text = ""

End If

If Option4.Checked = True Then

Text3.Visible = True

'UPGRADE_WARNING: Couldn't resolve default property of object seg. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

'UPGRADE_WARNING: Couldn't resolve default property of object pri. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Text3.Text = CStr(pri / seg)

'UPGRADE_WARNING: Couldn't resolve default property of object seg. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

'UPGRADE_WARNING: Couldn't resolve default property of object pri. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"'

Text1.Text = CStr(pri / seg)

Text2.Visible = False

Text2.Text = ""

End If

End Sub