Function PrimjerMId()
'''''''''''''''''''''''''''''''''''
'Šta se sve moze sa funkcijom Mid '
'''''''''''''''''''''''''''''''''''
Dim Str As String
Dim DioStr As String

Str = "Ja idem u školu"
Mid(Str, 1, 8) = "Ti ideš"         ' str = "Ti ideš u školu"
Str = "Ja idem u školu"
Mid(Str, 11) = "Tuzlu"             'str="Ja Idem u Tuzlu"
Str = "Ja idem u školu"
Mid(Str, 4) = "neu u školu"     'str="Ja neu u školu
Str = "Ja idem u školu"
DioStr = Mid(Str, 3)               'diostr=idem u školu"
Str = "Ja idem u školu"
DioStr = Mid(Str, 4, 4)            'diostr="idem"
End Function