Q:

Split em VBA não funciona

Tenho o seguinte excerto de código:
CorpID = rsSQL.Fields("Name")
Tmp14 = Split(CorpID, , 1)
Tmp15 = Join(Tmp14)
Me.nomeUsuario.Caption = Tmp15

Onde eu quero buscar apenas o primeiro nome da pessoa, mas devolve o nome completo, ou seja a função split não está a funcionar, o que fiz de errado?

A:

O problema é o terceiro parâmetro.
Pela documentação oficial do método, o terceiro parâmetro é a quantidade máxima de substrings que você quer. Se não for informado, ou se for informado o valor padrão (-1), não há limite de substrings para retornar. Mas no seu caso...
Se você diz que quer no máximo uma substring, não importa quantas vezes o delimitador apareça no input. Você vai obter só uma string mesmo.
Se você quer separar em nome e sobrenome, passe no mínimo 2 no terceiro parâmetro. Isso transforma:
"Derpino Augusto de Oliveira Lima"

Em:
"Derpino",  "Augusto de Oliveira Lima"

Você pode omitir o terceiro parâmetro para quebrar a string em todos os espaços. E o valor padrão para o segundo parâmetro, que é o delimitador, é espaço (" "), então você pode omitir ele também. Fica assim:
Tmp14 = Split(CorpID)

Boa sorte!

