Como faço para o meu sistema capturar apenas o primeiro nome do nome do cliente

Function PrimeiroNome(Nome As String) As String

Dim tamanho As Integer
Dim contador As Integer
Dim caracter As String
Dim PedacoEsquerdo As String

Nome = Trim(Nome)
tamanho = Len(Nome)

For contador = 2 To tamanho
PedacoEsquerdo = Left(Nome, contador)
caracter = Right(PedacoEsquerdo, 1)
If caracter = " " Then GoTo PegaPrimeiroNome
Next
PegaPrimeiroNome:
PrimeiroNome = Left(Nome, contador - 1)
End Function

Crie uma consulta seleção utilizando a tabela que contém os nomes das pessoas;
cria uma coluna da seguinte maneira:

PrimeiroNome: PrimeiroNome([SuaTabela]![CampoNomePessoa])

boa sorte

Ananias.

Por favor, poderia me informar como insiro esta função no access:

Function PrimeiroNome(Nome As String) As String

Dim tamanho As Integer
Dim contador As Integer
Dim caracter As String
Dim PedacoEsquerdo As String

Nome = Trim(Nome)
tamanho = Len(Nome)

For contador = 2 To tamanho
PedacoEsquerdo = Left(Nome, contador)
caracter = Right(PedacoEsquerdo, 1)
If caracter = " " Then GoTo PegaPrimeiroNome
Next
PegaPrimeiroNome:
PrimeiroNome = Left(Nome, contador - 1)
End Function