Visual Basic помогите срочно!!!111!

Да можете.
Для этого:
Dim k As Boolean

Если условие может поменяться в процессе выполнения, то делаете отдельную функцию типа:
Function ИмяФункции (...) As Boolean
...
End Function

Мурзилка отличный способ предложил, отдай ему ЛО!
Действительно, любое условие - это по сути логическое выражение, которое может быть истинным или ложным, то есть его можно записать в булеву переменную.

По поводу операторов If и Case.
If пишется так
If Логическое выражение Then
Действия, которые нужно выполнить, если условие истинно
[ Else
Действия, которые нужно выполнить, если условие ложно ]
End If
Часть Else, в квадратных скобках - необязательна

Или в 1 строку, если нужно выполнить по 1 действию
If Логическое выражение Then Действие 1 [ Else Действие 2 ]

Оператор Case. Проверяем переменную х. Используется, когда нужно сделать выбо не из 2, а из многих вариантов
Select Case x
Case 1 To 20
Действия, которые нужно выполнить, если 1 <= x <= 20
Case 138
Действия, которые нужно выполнить, если x = 138
Case Is < 0
Действия, которые нужно выполнить, если x < 0
Case 25 To 30, 50, 78, Is > 150
Действия, которые нужно выполнить, если выполняется хотя бы одно из написанных условий, любое.
Case Else
Действия, которые нужно выполнить, если ни одно из условий в других ветках не выполняется
End Select

Заметь, в конце пишется End Select, а не End Case!

нет

Делай проще так
if условие then
if условие then
if условие then
else
или
if условие then
else if условие then
if условие then
и так далее, не забывай про операторские скобки