On Error GoTo

[tatayayan]

Private Sub cmdConectar_Click()
On Error GoTo error1

.......rutina1 de conexión...............
conectado = True
Exit Sub

error1:
MsgBox "¡No se pudo conectar!", vbExclamation, "Info"
call segunda
Exit Sub 'no seria necesario si es lo ultimo

End Sub

Segun mi poco entender puedes llamar a otro modulo que haga esa rutina.
Espero sea util,
saludos, Tatayayan