ник: ddi
Я типы не объявлю это мой стиль а проблему решил добавив в код
Private Sub Form_Load()
Dim i
Dim c
Dim d
Dim k1
Dim k2
Dim k3
Dim z
d = DriveSerial("d")
c = DriveSerial("c")
If d < 0 Then
d = -d
End If
If c < 0 Then
c = -c
End If
*******************