При компиляции не учитываются изменения, внесенные в проект

Public Class Form1
    Function getprogram(ByVal val As String) As Integer
        Dim val1 As Integer
        Select Case val
            Case "->->->->"
                val1 = 1
            Case "<-<-<-<-"
                val1 = 2
            Case "<-<-<-<-"
                val1 = 3
            Case "->-><-<-"
                val1 = 4
            Case "^  ^   ^  ^"
                val1 = 5
 
        End Select
        Return val1
 
 
    End Function
 
 
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
        If IsNumeric(TextBox1.Text) And ComboBox1.Text <> 'Выбор алгоритма' Then MsgBox(getprogram(->->->->))
 
        Else : MsgBox("Введите время работы и выбирите алгоритм работы")
 
        End If
 
 
    End Sub
 
 
 
End Class

        If IsNumeric(TextBox1.Text) And ComboBox1.Text <> "Выбор алгоритма" Then
            MsgBox(getprogram("->->->->"))
        Else
            MsgBox("Введите время работы и выбирите алгоритм работы")
        End If

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsNumeric(TextBox1.Text) And ComboBox1.Text <> "Выбор алгоритма" Then MsgBox(getprogram("->->->->"))
        Else MsgBox("Введите время работы и выбирите алгоритм работы")
        EndIf
 
 
    End Sub

If IsNumeric(TextBox1.Text) And ComboBox1.Text <> "Выбор алгоритма" Then MsgBox(getprogram("->->->->"))

if условие Then команда

if условие Then команда Else другая_команда

If условие Then
...
несколько строк команд
...
Else
...
несколько строк команд
...
End if