Visual Basic - Ayuda con barra espaciadora

Private Sub BUSQUEDA_SECUENCIAL_Change()

BUSCAR_CLIENTE = "" ' Borro lo que hay en buscar cliente ya que voy a buscar en busqueda secuencial

With CodeContextObject


If BUSQUEDA_SECUENCIAL.SelStart <> 0 Then
DoCmd.GoToControl "razon"
DoCmd.FindRecord .BUSQUEDA_SECUENCIAL, acStart, acCurrent, acSearchAll
'acStart: indica que se buscará al principio del campo
'acCurrent: especifica que la búsqueda se limita al campo actual de cada registro
'acSearchAll: desde el registro activo hacia el final de los registros y luego desde el principio de los registros hasta el registro activo, de forma que se busque en todos los registros


BUSQUEDA_SECUENCIAL.SetFocus
BUSQUEDA_SECUENCIAL.SelStart = Len(BUSQUEDA_SECUENCIAL)
End If
End With

End Sub

Como podría dejar un espacio con la barra espaciadora, probe a hacer esto
dim prueba as string
if keyascii=32 then
prueba= (" ")
busqueda_secuencial= prueba