Public Sub UpdateUnitLabels()
        Dim MSG As String = TextBox1.Text
        Dim MSGHi As String = TextBox3.Text
        Dim MSGLow As String = TextBox4.Text
        CurrentTemperatureLabel1.Text = CurrentTemperatureLabel1.Text & "°" & currentUnit
        FeelsLikeTemperatureLabel1.Text = FeelsLikeTemperatureLabel1.Text & "°" & currentUnit
        MinTemperatureForecastLabel1.Text = MinTemperatureForecastLabel1.Text & "°" & currentUnit
        MaxTemperatureForecastLabel1.Text = MaxTemperatureForecastLabel1.Text & "°" & currentUnit
        HumidityLabel1.Text = HumidityLabel1.Text & "%"
        Label3.Text = Label3.Text
        Label5.Text = Label5.Text & "%" & " chance"
        Label6.Text = Label6.Text
        Label11.Text = Label11.Text & "°" & currentUnit
        Label12.Text = Label12.Text & "°" & currentUnit
        Label18.Text = Label18.Text & "°" & currentUnit
        Label21.Text = Label21.Text & "°" & currentUnit
        Label27.Text = Label27.Text & "°" & currentUnit
        Label28.Text = Label28.Text & "°" & currentUnit

        If Me.TextBox1.TextLength < 2 Then
            MSG = (0 & 0 & MSG)
        Else
            If Me.TextBox1.TextLength < 3 Then
                MSG = (vbTab & MSG)
            Else
                MSG = MSG
            End If
        End If

        If Me.TextBox3.TextLength < 2 Then
            MSGHi = (vbTab & vbTab & MSGHi)
        Else
            If Me.TextBox3.TextLength < 3 Then
                MSGHi = (vbTab & MSGHi)
            Else
                MSGHi = MSGHi
            End If
        End If

        If Me.TextBox4.TextLength < 2 Then
            MSGLow = (vbTab & vbTab & MSGLow)
        Else
            If Me.TextBox4.TextLength < 3 Then
                MSGLow = (vbTab & MSGLow)
            Else
                MSGLow = MSGLow
            End If
        End If

        SPort.WriteLine(MSG + MSGHi + MSGLow)

        Data.TextBox1.Text = Me.TextBox8.Text
        Needle()
        Direction()
    End Sub 