Vb.net 删除IP地址的最后八位字节

我正在尝试删除IP地址的最后八位字节，但我不知道从哪里开始

我目前能够获得主机IP，但需要更改它

当前代码：

Private Function GetIPv4Address() As String
        GetIPv4Address = String.Empty
        Dim strHostName As String = System.Net.Dns.GetHostName()
        Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)

        For Each ipheal As System.Net.IPAddress In iphe.AddressList
            If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
                GetIPv4Address = ipheal.ToString()
            End If

        Next
        IP = GetIPv4Address
    End Function

上述输出为xx.xx.xx.xxx

目标是让它输出xx.xx.xx。

替换：

IP = GetIPv4Address

为此：

IP = Left(GetIPv4Address, GetIPv4Address.LastIndexOf("."))

请参阅有关文件和方法的详细信息。

替换：

IP = GetIPv4Address

为此：

IP = Left(GetIPv4Address, GetIPv4Address.LastIndexOf("."))

---

查看有关函数和方法的更多信息。

在LastIndexOf之后获取“Expression expected”错误。此外，我是将新行保留在函数中，还是将其放入我要调用的类中？---Edit，只需将“替换为”-我的错！LastIndexOf之后出现“Expression expected”错误。另外，我是将新行保留在函数中，还是将其放入我要调用它的类中？---Edit，只需将“替换为”-我的错误！