.
Só formatar a célula para geral já fica nesse formato (43193)!! ... Isto não resolve??
.

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("G1").Select
    Selection.NumberFormat = "@"
End Sub

.
Só formatar a célula para geral já fica nesse formato (43193)!! ... Isto não resolve??
.

Preciso de uma função em VBA.

Existe a função DATAM. No VBA, é EDATE.

Option Explicit

Sub TESTE()

Dim LINHA As Long

LINHA = 1

While Plan1.Range("A" & LINHA).Value <> ""

Plan1.Range("B" & LINHA).Value = WorksheetFunction.EDate(CDate(Plan1.Range("A" & LINHA).Value), 0)

LINHA = LINHA + 1
Wend
End Sub

O próprio VBA já tem uma função para isso:

Dim dt As Long 'ou As Single, se quiser com hora/minuto/segundo

dt = DateValue("03/04/2018")