Dim date As Date = Format(Now(), "M, m")
Это никогда не сохранит формат, поскольку вы помещаете строку в значение даты (я не пробовал, но я был бы удивлен, если бы она не выдавала ошибку)
Dim tempstring As String = Format(Now(), "M, m")
Это работает для меня, давая "8,2" (М-месяц, м-минута)
Обновление Мой полный тестовый код,
Dim tempstring As String = Format(Now(), "M, m")
Console.WriteLine(tempstring)
Console.WriteLine("Press any key")
Console.ReadKey()
дает (при запуске в августе и через 2 минуты после часа)
8, 2
Press any key