It seems I overthought it. So it's fine to enter the date directly into cell("H2").

Function strgen()
    Dim dat As Variant
    Dim datstring As Variant
    dat = ThisWorkbook.Sheets("Sheet1").Range("H2").Value
    datstring = Format(dat, "mm.dd.yy")
    strgen = datstring & ".xlsm"
End Function