This i s what i need. I open a file using common dialog and then load in text box. I get the file size in bytes using filelen() and then i need to divide the filelen by 1500000 bytes and then add 1 to that number how would i do that?

mysize / 1500000 + 1 doesn't work ?

Code:
Private Sub Command1_Click()
cd1.Filter = "All Files|*.*"
cd1.ShowOpen
Text1.Text = cd1.FileName
End Sub

Private Sub Command2_Click()
Dim MySize As Integer
Dim Accounts
If Text1.Text = "" Then
MsgBox ("Please Load File First :-)!")
Else
MySize = FileLen(cd1.FileName)
mysize / 1500000 + 1
End If
End Sub