I found out it will work doing this but I still wonder if there is a more elegant way.

Private Sub Command1_Click()

    Label1.Caption = MakeDate(Text1.Text)
        
End Sub

Private Function MakeDate(InputDate As String)
Dim tmpDay As Integer
Dim tmpMonth As Integer
Dim tmpYear As Integer
Dim tmpDate As Date
    
    tmpDay = Mid$(InputDate, 1, 2)
    tmpMonth = Format(InputDate, "mm")
    tmpYear = Mid$(InputDate, 8, 2)
    
    tmpDate = DateSerial(tmpYear, tmpMonth, tmpDay)
    
    MakeDate = Format(tmpDate, "dd/mmm/yyyy")
    
End Function