Private Sub Command1_Click()
Dim Minuten As Double
Dim Sekunden As Long
Dim Min As String
Dim Sek As String
 
Sekunden = 4825
 
Minuten = Sekunden / 60
 
MsgBox Minuten
 
Min = Mid(CStr(Minuten), 1, InStr(1, CStr(Minuten), ",") - 1)
Sek = Mid(CStr(Minuten), InStr(1, CStr(Minuten), ",") + 1, Len(CStr(Minuten)) - _
  InStr(1, CStr(Minuten), ","))
 
MsgBox Min
 
MsgBox Sek
 
End Sub

Dim Minuten As String
Dim Sekunden As Long
Dim Arr() As String
 
Sekunden = 4825
 
Minuten = Sekunden / 60
 
Arr = Split(Minuten, ",")
 
MsgBox Arr(0)
MsgBox Arr(1)