Dim xTeclas As Integer

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If xTeclas = 8 Then
        PressBarraEspaco
    Else
        xTeclas = xTeclas + 1
    End If
    'Debug.Print Chr(KeyCode), KeyCode
End Sub

Sub PressBarraEspaco()
On Error Resume Next
SendKeys " ", True
End Sub

 

Private Sub Form_Unload(Cancel As Integer)
End
End Sub