Visual Basic - IF no me funciona

Hola, tengo un codigo que me planifica el dia por hora, el problema es que tengo una variable hora_actual, que cuando esta llega a 17,5 (que significaria las 17:30) se debe salir del while en que tengo, para esto lo puse asi:

if hora_actual=17,5 then
....

La cosa es que lo ejecuto paso a paso, yveo que en un momento la var hora_actual llega a 17,5 pero no entra al If . La variable hora_actual es Double

Ojala me puedan ayudar ya que llevo casi un dia sin poder resolverlo.

hola joaquin intentalo asi

Private Sub Command1_Click()
Dim hora As Integer
Dim minuto As Integer
hora = Hour(Now)
minuto = Minute(Now)
If (hora = (17)) And (minuto = (30)) Then
MsgBox "salio el mensaje"
End If
End Sub