Удалить из строки подстроку после последней точки

Dim objWMIService = GetObject("winmgmts:" _
                                & "{impersonationLevel=impersonate}!\\" & Pc & "\root\cimv2")
Dim IPConfigSet = objWMIService1.ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where ipenabled = true")
 For Each IPConfig In IPConfigSet
                        If IPConfig.IPAddress IsNot Nothing Then
                            For l = 0 To 0
                                TextBox1.Text = TextBox1.Text & " IP: " & IPConfig.IPAddress(0) & vbCrLf
                            Next
                        End If
                    Next

Len(IPConfig.IPAddress(0))

Dim STR = "192.168."
        Dim STR1 = "10."
If (IPConfig.IPAddress(0).ToString.IndexOf(STR) < 0) And (IPConfig.IPAddress(0).ToString.IndexOf(STR1) < 0) Then 
' если не находит то ничего
 
else
'если находит то вывод подсети
end if

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim comp = "." ' тот пк на котором запускается форма
        Dim objWMIService = GetObject("winmgmts:" _
                                & "{impersonationLevel=impersonate}!\\" & comp & "\root\cimv2")
        Dim IPConfigSet = objWMIService.ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where ipenabled = true")
 
        For Each IPConfig In IPConfigSet
            If IPConfig.IPAddress IsNot Nothing Then
                For l = 0 To 0
                    Dim net As String = IPConfig.IPAddress(l).ToString ' строка с ip адресом из 0 индекса, тое ipv4
 
                    Dim r As Integer = net.LastIndexOf(".") ' узнал индекс последнего вхождения символа "." в строку net. имеет тип integer 
                    TextBox3.Text = Mid(net, 1, r + 1) ' ну а дальше простая функция (так как индекс считается от 0 то для того чтоб и точка прописалась добавляем единичку)
 
                Next
            End If
        Next
    End Sub

TextBox3.Text = net.Substring(0, net.LastIndexOf(".") + 1)