Using string to call

[Burret]

I'm a beginner and trying to do some code for Excel

I want to use String Tank_Level
inside the method Sheet2.Tank1.Picture = LoadPicture(Load_Picture)
for example like this Sheet2.(Tank_Level).Picture = LoadPicture(Load_Picture)
is this possible ?

Sub Run_Update_Tank()

Dim Grader As Integer
Dim Grader_String As String
Dim Grader_up As Integer
Dim Tank As Integer
Dim Tank_String As String
Dim Tank_Pos As String
Dim Tank_Level As String
Dim Load_Picture As String
Dim Picture As String
Dim Aktuell As Integer

Grader_up = 10
Tank_Pos = ("M0")
Tank_Level = ("Tank0")
Load_Picture = ("D:\Projekt Solvärme\Mjukvara\Klient\Grafik\Tank\Tank0.bmp")

For Tank = 1 To 6 Step 1
Tank_String = CStr(Tank)
Mid$(Tank_Pos, 2, 1) = Tank_String
Mid$(Tank_Level, 5, 1) = Tank_String
Aktuell = Worksheets("Aktuell Status").Range(Tank_Pos)

For Grader = 1 To 9 Step 1
Grader_up = Grader_up + 10
Grader_String = CStr(Grader)
Mid$(Load_Picture, 53, 1) = Grader_String

If Aktuell > Grader_up Then
Sheet2.Tank1.Picture = LoadPicture(Load_Picture)
End If

If Aktuell <= Grader_up Then
Exit For
End If

Next Grader
Next Tank

End Sub