Concatenar fechas

'Poniendole el cero al mes cuando es menor al mes 10

'1era opción

' Suponiendo que se declaro una variable de tipo Date, y aartir de esta ' se llenan los valores de las otras variables
Public fechita As Date = Date.Now()
Dim Day As Int16 = fechita.Day
Dim mont As Int16 = fechita.Month
Dim year As Int64 = fechita.Year

'2da opcion

'Suponiendo que no existe ninguna variable de tipo Date, asi q se 'asignan directos los valores

Dim Day As Int16 = Now.Day
Dim mont As Int16 = Now.Month
Dim year As Int64 = Now.Year

'Aqui estamos suponiendo que se encuentra en una clase y lo llamamos

'Esta variable nos sirve para recuperar la fecha con cero.....

Public Fconcat As String = String.concat(a,"/",MesConCero(mont),"/",year)

'Aqui estamos suponiendo que esta  en una clase de nombre "MiClase"

Public Fconcat As String = String.concat(a,"/",MiClaseMes.ConCero(mont),"/",year)

'Funcion puede estar en una clase o en un modulo
Private Function MesConCero(ByVal Mes As Integer) As String

Dim mesito As String = CStr(Mes)

    If Len(mesito) = 1 Then
        mesito = String.Concat("0", mesito)
    Else
        mesito = CStr(Mes)
    End If

Return mesito

End Function