Как удалить из строки все символы после м/с?

Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
    Dim Adr As String = "https://yandex.ru/pogoda/", Pu As String = "1.txt", B, B1, Osad As String
    Dim B3, B33 As MatchCollection
    Dim B2 As Match
    Dim Rege As Regex, U As Boolean
 
    Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Integer, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Integer, ByVal lpfnCB As Integer) As Integer
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            ' CheckBox1.Checked = True
            If IO.File.Exists(Pu) = True Then IO.File.Delete(Pu)
            Call URLDownloadToFile(0, Adr, Pu, 0, 0)
            B = IO.File.ReadAllText(Pu, System.Text.Encoding.UTF8)
            B = B.Replace(Chr(34), "")
 
 
            Dim A1, A2, Res, Str As String, L, L1, L2 As New List(Of String) 'title_level_1 
            'A1 = "class=title-icon"
            'A2 = "мм рт" 'd-lg-block d-xl-block><a href=/pogoda/99973 class="
            'B = OS(B, A1, A2)
            A1 = "Гектопаскалей"
            A2 = "async></script>"
            B = DeleteTextBetweenNoRe(B, A1, A2)
 
            A1 = "size_big role=region aria-"
            A2 = "</style><div class=fact__title><"
            B = DeleteTextBetweenNoRe(B, A1, A2)
            '   MsgBox(B)
            RTB1.Text = B
 
            Label1.Text = B.Length
            ' A1 = "__text>"
            A1 = "yastatic.net/weather/i/icons/funky/circle/ovc.svg/></div><div class=title-icon__text>"
            A2 = "</div>"
            Dim Pogoda As String = OS(B, A1, A2)
            Dim n As Integer
 
            If Pogoda = "" Then
                A1 = "icon_size_32 aria-hidden=true src=//yastatic.net/weather/i/icons/funky/circle/skc_d.svg/></div><div class=title-icon__text>"
                A2 = "</div></div></a></div><div class=content"
                Pogoda = OS(B, A1, A2)
                n = 0
            End If
 
            If Pogoda = "" Then
                A1 = "src=//yastatic.net/weather/i/icons/funky/circle/ovc_ra.svg/></div><div class=title-icon__text>"
                A2 = "</div></div></a></div><div class=content__top><div class=fact card"
                Pogoda = OS(B, A1, A2)
                n = 1
            End If
 
            If Pogoda = "" Then
                A1 = "src=//yastatic.net/weather/i/icons/funky/circle/ovc_-ra.svg/></div><div class=title-icon__text>"
                A2 = "</div></div></a></div><div class=content__top><"
                Pogoda = OS(B, A1, A2)
                n = 2
            End If
 
            If Pogoda = "" Then
                A1 = "src=//yastatic.net/weather/i/icons/funky/circle/temp_is_up.svg/></div><div class=title-icon__text>"
                A2 = "</div></div></a></div><div"
                Pogoda = OS(B, A1, A2)
                n = 3
            End If
 
 
            Pogoda = Regex.Replace(Pogoda, "[^а-яА-Я0-9-\. /,+']", String.Empty)
            Pogoda = Regex.Replace(Pogoda, "/\w+до.*/", "") '
            '  Pogoda = Regex.Replace(Pogoda, "м/с[^мс]*$", "м/с")
            '  Pogoda = Pogoda.Substring(0, Pogoda.LastIndexOf("м/с") + 3)
            '  Pogoda = Regex.Replace(Pogoda, "(.*м/с).*", "$1")
 
            RichTextBox1.Text = Pogoda 'Label5
            Label6.Text = n
            A1 = "main_title>" ' город
            A2 = "</h1><"
            L.Add(OS(B, A1, A2)) ' 0
 
            A1 = "Текущая температура " : A2 = " Ощущает" ' "."
            Str = OS(B, A1, A2)
            Str = Str.Replace(",", "").Replace(".", "")
            If Val(Str) > 0 Then
                Str = "+" & Str
            End If
            Label2.Text = Str '& " °C"
 
            A1 = "Сейчас" : A2 = "</time><"
            Str = OS(B, A1, A2)
            '
            L.Add("  " & Str.Replace(".", "")) ' сейчас 1
 
 
            A1 = "Ощущается как " : A2 = ","
            Str = OS(B, A1, A2)
            Dim Str1 As String = Str
            ' 
            If Val(Str) > 0 Then
                Str = "+" & Str
            End If
 
            L.Add(A1 & Str & "C") ' 2 Ощущается как
            '  Try
            A1 = Str1 : A2 = ". data-bem=" 'осадки "Ощущается как" . data-bem=
                Str = OS(B, A1, A2)
                Str = Str.Replace(", ", "")
 
                Osad = Str
                B1 = (Osad)
                L.Add(Str) ' 3
 
 
            'Catch ex As Exception
            '    ' MsgBox(ex.ToString)
            'End Try
            'ветер
            'A1 = "title-icon"
            'A2 = "Ощущается как"
            'B = DeleteTextBetweenNoRe(B, A1, A2)
 
            ' A1 = "_wind_w icon_wind aria-hidden=true data-width=12></i></span></div><span class=a11y-hidden>"
            A1 = "wind aria-hidden=true data-width=12></i></span></div><span class=a11y-hidden>"
            A2 = "</span></"
            Str = OS(B, A1, A2)
            Str = Str.Replace("Метров в секунду", "м/с").Replace(":", "").Replace(",", "") '.Replace(".", "")
            '  
            L.Add(Str) ' 4
 
            'Влажность: 34%.</span></
            A1 = "Влажность" : A2 = "</span></"
            Str = OS(B, A1, A2)
            Str = Str.Replace(":", "").Replace(".", "")
            L.Add(A1 & Str) ' 5
 
            'Давление
            'A1 = "day-anchor:{anchor:20}}'><"
            'A2 = "></div><div class=term term_orient_v fact__pressure><"
            'B = DeleteTextBetweenNoRe(B, A1, A2)
 
            '  A1 = "fact-icon aria-hidden=true></i>"
            A1 = "><i class=icon icon_pressure-white term__fact-icon aria-hidden=true></i>"
            A2 = " <span class"
            Str = OS(B, A1, A2)
            ' MsgBox(Str)
            Rabot()
            L.Add("Давление " & Str & "мм рт.ст") ' 6
 
 
            Str = L(0) & "  " & L(1) & vbCrLf
            For i = 2 To L.Count - 1
                Str &= L(i) & vbCrLf
            Next
            '  Str = Regex.Replace(Str, "[^а-яА-Я0-9-\. /,+']", String.Empty)
 
            Label3.Text = Str
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
 
    '  Dim B1 As String ' = "Osad"
    Sub Rabot()
        Try
            Dim L As New List(Of String)
            Dim F(10)
            Dim n As Integer = -1
            Dim U As Boolean
 
 
            Dim Bi As Match
            'Dim B3, B33 As MatchCollection
            'Dim B2 As Match
            Dim Reg As New Regex("штиль")
            Bi = Reg.Match(LCase(Osad))
 
            TextBox2.Text = (B1)
 
            Reg = New Regex("ясно")
            Bi = Reg.Match(LCase(Osad))
            If Bi.ToString <> "" Then
                PictureBox1.Image = Image.FromFile("s2.gif")
                Label3.ForeColor = Color.Black
                Exit Sub
            End If
 
            Reg = New Regex("мало")
            Bi = Reg.Match(LCase(B1))
            If Bi.ToString <> "" Then
 
                PictureBox1.Image = Image.FromFile("s1.gif")
                Label3.ForeColor = Color.Black
                Exit Sub
            End If
 
            Reg = New Regex("облачно с прояснениями")
            Bi = Reg.Match(LCase(B1))
            If Bi.ToString <> "" Then
                PictureBox1.Image = Image.FromFile("s1.gif")
                Label3.ForeColor = Color.Black
                ' MsgBox(Bi.ToString)
                Exit Sub
            End If
 
            Reg = New Regex("облачно")
            Bi = Reg.Match(LCase(B1))
            If Bi.ToString <> "" Then
                PictureBox1.Image = Image.FromFile("o1.gif")
                Label3.ForeColor = Color.Black
                '  MsgBox(Bi.ToString)
                Exit Sub
            End If
 
 
 
            Reg = New Regex("пасмурно")
            Bi = Reg.Match(LCase(B1))
            If Bi.ToString <> "" Then
                PictureBox1.Image = Image.FromFile("o3.gif")
                Label3.ForeColor = Color.White
 
            End If
 
            Reg = New Regex("небольшой дождь")
            Bi = Reg.Match(LCase(B1))
            If Bi.ToString <> "" Then
                PictureBox1.Image = Image.FromFile("d1.gif")
                Label3.ForeColor = Color.White
                Exit Sub
            End If
 
            Reg = New Regex("дождь")
            Bi = Reg.Match(LCase(B1))
            If Bi.ToString <> "" Then
                PictureBox1.Image = Image.FromFile("d7.gif")
                Label3.ForeColor = Color.White
                Exit Sub
            End If
 
            Reg = New Regex("сильный снег")
            Bi = Reg.Match(LCase(B1))
            If Bi.ToString <> "" Then
                PictureBox1.Image = Image.FromFile("SN22.gif")
                Label3.ForeColor = Color.Black
                Exit Sub
            End If
 
            Reg = New Regex("снег")
            Bi = Reg.Match(LCase(B1))
            If Bi.ToString <> "" Then
                PictureBox1.Image = Image.FromFile("sn2.gif")
                Label3.ForeColor = Color.White
                Exit Sub
            End If
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label3.Parent = PictureBox1 : Label2.Parent = PictureBox1
        Label3.BackColor = Color.Transparent : Label2.BackColor = Color.Transparent
        Label3.ForeColor = Color.Yellow : Label2.ForeColor = Color.Yellow
        Label2.Font = New Font("Tahoma", 60, FontStyle.Bold)
        Label3.Font = New Font("tahoma", 20, FontStyle.Bold) ' Microsoft Sans Serif
        Label2.Location = New Point(0, 0)
        Label3.Location = New Point(0, Label2.Height)
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        Me.Size = New Point(528, 538)
        Inf()
        Me.KeyPreview = True
        ''  Me.Opacity = 0
        'Timer1.Interval = 100
        '  Timer1.Start()
        Button1.PerformClick()
 
    End Sub
 
    Sub Inf()
        If CheckBox1.Checked Then
            TextBox1.Visible = True
            Label4.Visible = True
            RTB1.Visible = True
            'ListBox1.Visible = True
            ListBox2.Visible = True
            Label1.Visible = True
            Button3.Visible = True
        Else
            TextBox1.Visible = False
            Label4.Visible = False
            RTB1.Visible = False
            'ListBox1.Visible = False
            ListBox2.Visible = False
            ' Label1.Visible = False
            Button3.Visible = False
        End If
    End Sub
 
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            Dim N As Integer
            ListBox2.Items.Clear() : Label4.Text = ""
            Dim Str As String = TextBox1.Text
            Dim i As Integer = 0
            While i <= RTB1.Text.Length - Str.Length
                '   i = RTB1.Text.IndexOf(Str, i)
                i = LCase(RTB1.Text).IndexOf(LCase(Str), i)
                If i < 0 Then Exit While
                RTB1.SelectionStart = i
                RTB1.SelectionLength = Str.Length
                RTB1.SelectionColor = Color.Red
                '  RTB1.SelectionFont = New Font("arial", 14, FontStyle.Bold)
                RTB1.SelectionBackColor = Color.Yellow
                '  ListBox1.Items.Add(N & ") " & i)
                ListBox2.Items.Add(i)
                N += 1
                i += Str.Length
            End While
            Label4.Text = N
            ' MsgBox("END")
        Catch ex As Exception
 
        End Try
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            Me.Size = New Point(816, 580)
        Else
            Me.Size = New Point(528, 538) '470, 510
        End If
        Inf()
    End Sub
    Dim m As Integer, FO As Single
 
 
    Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
        RTB1.SelectionStart = CLng(ListBox2.SelectedItem)
        RTB1.Focus()
    End Sub
 
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Process.Start(Adr)
    End Sub
 
    Private Function DeleteTextBetweenNoRe(input As String, startTag As String, endTag As String) As String
        Dim result As New StringBuilder
        Dim res As String
        Dim index = 0
        While index < input.Length
            Dim st = input.IndexOf(startTag, index)
            If st = -1 Then
                result.Append(input, index, input.Length - index)
                Exit While
            End If
            st += startTag.Length
            result.Append(input, index, st - index)
            index = st
            Dim et = input.IndexOf(endTag, index)
            index = et
        End While
        res = result.ToString
        res = res.Replace(startTag, "")
        res = res.Replace(endTag, "")
        Return res
    End Function
 
    'Оставить текст
    Private Function OS(Rez1 As String, A3 As String, A31 As String)
        Rez1 = Regex.Match(Rez1, A3 & "(.*?)" & A31, RegexOptions.IgnoreCase Or RegexOptions.Singleline).Groups(0).Value
        Rez1 = Rez1.Replace(A3, "").Replace(A31, "")
        ' Rez1 = Rez1.Replace(A31, "")
        Return Rez1
    End Function
 
    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        ElseIf e.KeyCode = Keys.Enter Then
            Button1.PerformClick()
        End If
    End Sub
End Class