Değişkenleri tanımlama

[fedeal]

Selam arkadaşlar,
Elimde image nesnesine dosyadan resim aldıgım bir kod var işleyişinde problem yok.Benim sorunum dosya,yol,uzanti değişkenlerini tanımlaması ne şekilde olmalı yani Dim dosya As ?? ,Dim yol As ?? ,Dim uzanti As ??
İlgi ve yardımlarınıza şimdiden teşekkürler.

ChDir ("C:\")
dosya = Application.GetOpenFilename(FileFilter:="," & _
        "*.jpg", _
        Title:="Lütfen resim seçimi yapınız") ' uzantı eklemeleri yapabilirsiniz
    If dosya = False Then ' eğer vazgeçe basarsanız
        'MsgBox "Dosya seçme işleminden vazgeçildi", , "www.excel.web.tr"
        Exit Sub
    Else
        Image1.Picture = LoadPicture("")
        Sheets("bilgi").Cells(3, "j").Value = ""
        Sheets("bilgi").Cells(3, "j").Value = yol & dosya & uzanti
        Image1.Picture = LoadPicture(Sheets("bilgi").Cells(3, "j").Value)
    End If

 

[Necdet]

Merhaba,

Dim Dosya As Variant
Dim Yol As String
Dim uzanti As String

olarak tanımladığımda bir sorunla karşılaşmadım.

 

[fedeal]

Çok teşekkürederim sorunsuz çalıştı.