Can someone please tell me why this localscript doesnt zoom in on my part?[still needs answer]

Well what I see as the main problem is that you didn't change the CameraType to Scriptable which allows the Cameras position to change, etc.

Tween = game:GetService("TweenService")
Vpart = game.Workspace.VisualPart
Camera = game.Workspace.CurrentCamera
Camera.CameraType = Enum.CameraType.Scriptable
local tweenInfo = TweenInfo.new(6)
local goal = {}
goal.subject = Vpart
local tween = Tween:Create(Camera,tweenInfo,goal)

part = game.Workspace.DialoguePart

part.Touched:Connect(function(itemTouchingPart)
    if(itemTouchingPart.Parent and game.Players:FindFirstChild(itemTouchingPart.Parent.Name))then
        tween:Play()
    end

end)